1 POKE56576,199:POKE53272,21:POKE53265,155:POKE53270,200
35 :
36 DV=PEEK(186)
40 :
45 POKE53265,PEEK(53265)AND239
50 POKE53280, 5:POKE53281,11:PRINT"[147]";CHR$(142);
55 PRINT"[152]ESTTRAILWESTTRAILWESTTRAILWESTT"
60 PRINT"ILWESTTRA[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]ESTTRAILWE"
65 PRINT"TRAILWES[144]T[146][154][180][153]TRAILWEST[154][167][152]ILWESTTRAI"
70 PRINT"WESTTRAIL[144] [146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]TRAILWEST"
75 PRINT"AILWESTT[144]RAIL WEST TRAIL[146][152]WESTTRAILW"
80 PRINT"TTRAILWESTTRAILWESTTRAILWESTTRA"
85 PRINT"WESTT[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]AILWEST"
90 PRINT"RAILW[144]E[146][154][180][167][152]TTRAIL"
95 PRINT"STTRA[144]I[146][154][180]1[155])[153]PLAYGAME[154][167][152]WESTTR"
100 PRINT"[160]LWEST[144] [146][154][180][167][152]RAILWES"
105 PRINT"TRAIL[144]W[146][154][180]2[155])[153]READINSTRUCTIONS[154][167][152]STTRAIL"
110 PRINT"ESTTR[144]A[146][154][180][167][152]LWESTT"
115 PRINT"ILWES[144]T[146][154][180]Q[155])[153]QUITTO[150]LOADSTAR[154][167][152]TRAILWE"
120 PRINT"TRAIL[144] [146][154][180][167][152]ESTTRAI"
125 PRINT"WESTT[144]R[146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]ILWEST"
130 PRINT"AILWE[144]ST TRAIL WEST TRAIL WES[146][152]TTRAILW"
135 PRINT"TTRAILWESTTRAILWESTTRAILWESTTRA"
140 PRINT"WESTTRAILWESTTRAILWESTTRAILWEST"
145 PRINT"RAILWE[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]TTRAIL"
150 PRINT"STTRA[144]I[146][154][180][153]PLEASEENTERCHOICE[154][170][152]WESTTR"
155 PRINT"LWEST[144] [146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]RAILWES"
160 PRINT"TRAIL[144]WEST TRAIL WEST TRAIL W[146][152]ESTTRAIL"
165 PRINT"ESTTRAILWESTTRAILWESTTRAILWESTT"
170 POKE53265,PEEK(53265)OR16
175 GETA$:IFA$=""THEN175
180 IFA$="1"THEN250
185 IFA$="2"THEN220
190 IFA$="Q"THEN200
195 GOTO 175
200 GOTO40000
215 NF$="TW.GAME":GOTO225
220 NF$="TW.INST"
225 POKE53280,5:POKE53281,11
226 PRINT"[147][208]LEASE WAIT WHILE LOADING..."
230 PRINT"[151]LOAD"CHR$(34)NF$CHR$(34)","DV",1"
235 PRINT"RUN"
240 POKE631,ASC(""):POKE632,13:POKE633,13:POKE198,3
245 END
250 POKE53280, 0:POKE53281, 0:PRINT"[147]";
255 PRINT"notice"
260 PRINT"[152][163][163][163][163][163][163][163][163][163][163][163]"
265 PRINT"[154]oNCE[153]trailwest[154]ISLOADEDYOU"
270 PRINT"WILLHAVETOREBOOTTORETURNTO"
275 PRINT"THE[158]loadstar[154]OPERATINGSYSTEM."
280 PRINT"[152]---"
285 PRINT"[154]dOYOUWISHTOLOAD[153]trailwest[154]?"
290 PRINT"[197]NTER[217][152])[154]ESOR[206][152])[154]O."
295 GETA$:IFA$=""THEN 295
300 IFA$="Y"ORA$="[217]" THEN 215
305 IFA$="N"ORA$="[206]" THEN 45
310 GOTO 295
415 PRINT"zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
425 PRINT"[160]z[153] PRESS SPACE TO CONTINUE. [146]z"
9999 END
10000 D=PEEK(186):N$="TRAIL WEST":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40005 OPEN15,DV,15,"I0":CLOSE15
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END